VERSION 5.00
Begin VB.Form frmFormulas 
   Caption         =   "Formulas"
   ClientHeight    =   5850
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7275
   BeginProperty Font 
      Name            =   "Eras Bold ITC"
      Size            =   12
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   ScaleHeight     =   5850
   ScaleWidth      =   7275
   StartUpPosition =   2  'CenterScreen
   Begin VB.ListBox List2 
      Height          =   3195
      Left            =   3600
      TabIndex        =   1
      Top             =   1200
      Width           =   3015
   End
   Begin VB.ListBox List1 
      Height          =   3195
      Left            =   480
      TabIndex        =   0
      Top             =   1200
      Width           =   3135
   End
   Begin VB.Label Label4 
      Caption         =   "Label4"
      Height          =   615
      Left            =   120
      TabIndex        =   5
      Top             =   0
      Visible         =   0   'False
      Width           =   495
   End
   Begin VB.Label Label3 
      Alignment       =   2  'Center
      Caption         =   "Label3"
      Height          =   375
      Left            =   720
      TabIndex        =   4
      Top             =   120
      Width           =   5535
   End
   Begin VB.Label Label2 
      Caption         =   "Simbolos"
      Height          =   255
      Left            =   4200
      TabIndex        =   3
      Top             =   840
      Width           =   1815
   End
   Begin VB.Label Label1 
      Caption         =   "Campos"
      Height          =   255
      Left            =   960
      TabIndex        =   2
      Top             =   840
      Width           =   1815
   End
End
Attribute VB_Name = "frmFormulas"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public dato
Sub LLenarCampos()
    Dim t As DAO.Recordset
    Dim x As DAO.Recordset
     Set t = Base.OpenRecordset("Select *from PerfilResultados where cod_examenr=" & val(Label4.Caption))
     While Not t.EOF
        codexa = t("cod_examen")
        y = t("cod_relacion")
        
        Set x = Base.OpenRecordset("Select *from PerfilResultados,examenes where PerfilResultados.cod_examenr = examenes.cod_examen and PerfilResultados.cod_examen=" & codexa & " and cod_relacion <" & y)
        While Not x.EOF
            List1.AddItem x("descripcion")
            x.MoveNext
        
        Wend
        
       t.MoveNext
     Wend
     
End Sub
Private Sub Form_Load()
    List1.Clear
    List2.Clear
    List2.AddItem "+"
    List2.AddItem "-"
    List2.AddItem "*"
    List2.AddItem "/"
    List2.AddItem "("
    List2.AddItem ")"
End Sub

Private Sub List1_DblClick()
    dato = List1.list(List1.ListIndex)
    Unload Me
End Sub

Private Sub List2_Click()
    dato = List2.list(List2.ListIndex)
    Unload Me

End Sub
